<%
Set myconnection = Server.CreateObject ("ADODB.Connection")
myconnection.open = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../_private/aturalsprg.mdb"))
mycond = REQUEST.querystring ("vregi")
punts=":"
spai=" "
com="'"
sq1="select * from escrits "
SQ2="WHERE "
sq3=" id "
SQ4=" = "
sele1 = sq1 & sq2 & sq3 & sq4 & mycond
'response.write(sele1)
%>
<% set myrecordsetn = myconnection.execute ( sele1 ) %>
<% vcolor="FE050B"
vstil="ueberschrift"
vid = myrecordsetn(0)
vescrit = myrecordsetn(2)
vtitol = myrecordsetn(3) %>
<% =vtitol %>
<% =vescrit %>
